home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Workbench / Archive / ViewDiz / NewModules / readme < prev    next >
AmigaDOS Script File  |  1998-11-08  |  859b  |  25 lines
  1. .key FILE/A,CMD,DESC
  2. .def desc="t:file_id.diz"
  3. .bra {
  4. .ket }
  5. if {cmd} eq "READ"
  6.  
  7. rx "open(n,'{FILE}');do until upper(left(diz,6))='SHORT:';diz=readln(n);end;close(n);;diz=STRIP(DELSTR(diz,1,6));s=diz;m=44;b=1;IF length(s)>m THEN DO n=1 by 1 for words(s);IF wordindex(s,n)+wordlength(s,n)-b>=m THEN DO;IF n=1 THEN leave;b=wordindex(s,n-1);s=insert('0a'x,s,b-1);END;END;open(n,'{DESC}','w');writeln(n,s);close(n)"
  8.  
  9. endif
  10. If {cmd} eq "WRITE"
  11.  resident C:List force
  12.  set main `List "{file}" lformat "%f%m"`
  13.  set dest `List "$Main(#?.lha|#?.jpg|#?.dms)" lformat "%f%n"`
  14.  if exists "$dest"
  15.   filenote >nil: "$dest" "`type "{DESC}"`" quiet
  16.  endif
  17.  unset dest
  18.  unset main
  19.  resident List remove
  20. Endif
  21. if {cmd} eq "INFO"
  22.  setenv viewdiz/.minf "*"{file}*"" rw 0 "" (#?.readme) "Aminet Readme"
  23. endif
  24. ;$VER: ViewDIZ-Readme.module 1.2 (1.9.98) Mikael Lund & Stefano Pucino
  25.